
	  8. ᪨ ᯫ
							  19.09.90

     ᪨ ᯫ ।⠢ ᮡ  ,  ॠ騩 
  ᪨ 㭪権,  ᭮  ண,     
㣨 ⠬ ⥬ (஬ ,    .), 
짮⥫  ᮧ ᢮ ᮡ⢥ ᪨  ନ. 
   ī  ᪨ ᯫ.

     ᭮ ନ:

    ᮢ㯭   ࠢ饩         ᪮ 
᪮.  窨 ७   ⥬  ᪠  ᪮ 
  筮  ᪮,        ਬ     
  প.  襭 ᪮ 樨 
᪨ ਬ⨢  ࣠ ᫥騬 ࠧ:   
࠭    ࠧ஬   8  ᮤন  楫   ᫮   ப, 
ᯮ  ᫥⥫쭮   (⮪   ࠭   ய). 
ࠢ  ᮤন ଠ   ࠧ  ᪮ 
᪮,    뢮,  ⥪饩  窥,  ⨯      㣨 
ࠬ. ६  ⢮  16Ĩ ஢.

   אַ㣮쭠 ,  ࠭ ன ந室 
뢮 ᪨ ꥪ⮢. ꥪ   ,  騥   
,  ᥪ.  ᫥  ᮧ        ᮢ   
אַ㣮쭮   ,   ᮮ⢥饩    ᥩ    ᪮ 
᪮.

   ⨥, ᮮ⢥饥 ⥪饬     
䮯ந⥫.

:

      ᪮  ᯫ    ᮬ    窨 
७ .   ࠢ ।⢮    ॣ 
(.. 㦨  ॣ):

G.CSR	   177600	 ; ॣ ࠢ ᪨ ᯫ

         ᪮ ᯫ   ᫥騩 
:

     mov  #adr, @#g.csr  ; ᨬ   
     nop		 ;  ॣ 
     ...
adr:			 ; ࠢ騩  
     .blkw     x	 ; (ᮤন    ࠬ)

     饭     ᪮  ᯫ  ⢫ 
뫪    ࠢ饣	    ॣ     G.CSR.
ࠢ騩      ࠧ    ᭮   ࠭⢥ 
, 믮饣 饭.

     । 饭  ࠢ騩   뫠     
(ࢮ ᫮ )   ࠬ (न 窨,  梥, 
 蠡     ..).       
ࠧ ᫮ ࠬ஢ , ᮮ⢥ᢥ, ᯮ ࠧ  ᫮ 
᫮  .  ᫨    ப     饭   ī 
ࠬ,  ᮮ⢥饥 ᫮ ࠢ饣     
㤥.
      ணࠬ  몥 ᥬ  室  । 
 ப ᮤঠ  䠩 P16MAC.MAC, WDC.MAC	  GM.MAC.
 祭  ணࠬ  䠩  ४  ᯮ짮 
᫥ ᫥⥫쭮 ४⨢:

...
.nlist
.include  "p16mac.mac"
.include  "wdc.mac"
.include  "gm.mac"
.list
...

     ப "" ॣ  R0:  ᫥	  ᫥
ᮤন  ࠢ饣 .
     ᫨  ࠡ⪥  ஬ 㦥  訡,   
ॠ     ࠪ ᠬ 訡.  訡 
ਢ  ⮬,      ஬,  ਬ, 
騩 . 㣨  訡  "ࠢ"  ஬, 
ਬ,  ஢  	mov  	०	 VM1   
஢ 樥 bis. ,,   㥬
訡. ᫨ 砥 ⠪ 訡,         
訡  ࢮ ᫮ .

ERR.00	   100000	 ;     
ERR.01	   100001	 ;  ᮤন ⨬ ࠬ
ERR.02	   100002	 ;    ( ᮧ)
ERR.03	   100003	 ; ᫮ ६ 
                         ; ஢   ॢ 16
ERR.04	   100004	 ; ᫨誮 ᫮ 

	  8.1.   ࠬ

        (  0):

GCREA	  area,width,height,modpal

     area        ࠢ饣 ;
     width      ਭ   ᥫ;
     height        ப;
     modpal     㬥, ।騩  ०	(VM1,  VM2,  VM40,
		 VM41)    (pl0,  pl1,  pl2,  pl3).

     ᫨    믮    訡,       2Į   ᫮ 
ࠢ饣  頥 䨪 ,    3ĥ   
䨪  ᪮.  䨪    ᯮ    
⠫    ᪮ ᯫ   㪠, 
      ஬  㤥   믮   ᮮ⢥ 
.

;
       ଠ            ᪮ 
ᯫ,    ᪮  易          
⥬ (  1):

GKILL	  area,ident

     area        ࠢ饣 ;
     ident      䨪 .

     ᯮ짮      GKILL   	ARKILL	 
 প  ⨬,  ..    ⮬  ࠭ 
ॣ  ஬ ᪮ ᯫ.

;
       (  2):

GCLRR	  area,ident

     area        ࠢ饣 ;
     ident      䨪 .


          8.2. ⠭ ࠬ஢

;
     ⠭ 樥 ᦠ 㦭        ᥩ 
(  3):

GASP	  area,ident,xasp,yasp

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     xasp,yasp  ⥫	 楫	  ᫠,    ।騥
                 樥 ᦠ.

     ᫨  xasp  >  yasp,    ᦠ⨥    樥⮬  yasp/xasp
ந室   x,  ⨢ 砥    y  樥⮬
xasp/yasp.

;
     ⠭  뢮 (  4):

GWNDW	  area,ident,x1,y1,x2,y2

     area        ࠢ饣 ;
     ident      䨪 ;
     x1,y1      न ࢮ 窨    ;
     x2,y2      न ன 窨.

     ᫥ ⠭  뢮  ᪨  ਬ⨢ 
ந室 ⮫쪮  ࠭ .  ᮧ     
 ⠭ ࠢ ᥩ ᪮ .
     ᫨   室    ࠭  ,    ᮮ⢥騥 
ࠬ  ४.

;
     ⠭  ⨢ 梥 樨  ਬ⨢  ( 
 5):

GFGC	  area,ident,color

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     color       ⨢ 梥.

      ⨢ 梥, ⠭   ⢨⥫쭮, 
 ⮪    ,  㪠    ,    ᫮ 
梥⮢ ०.
             ᢠ    ᥫ    ਬ⨢,    ᫨ 
ᮮ⢥騩 ࠧ ⨯  ⠭  1.

;
     ⠭    䮭  梥  樨  ਬ⨢  ( 
 6):

GBGC	  area,ident,color

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     color       䮭 梥.

      䮭 梥, ⠭  ⢨⥫쭮,  
⮪   , 㪠   ,    ᫮  梥⮢ 
०.
             ᢠ    ᥫ    ਬ⨢,    ᫨ 
ᮮ⢥騩 ࠧ ⨯  ⠭  0.

;
     ⠭ ஢  樨 ਬ⨢     
 뫮(  7):

GROP	  area,ident,code

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     code        ஢ 樨 (0  MOV, 1  	BIS,  2  
		 XOR,  3  BIC).

      楫 䥪⨢  16Ĩ   ᪨  権 
࠭ ⮫쪮 4,      ॠ     
.
      ᮧ    ⠭        0. 
᪮  	०  VM1  (1      )  
⭠ প ஧筮 梥,   ஢     
 0 ⮬᪨  樥   1.

;
     ⠭ ⨯  (  8):

GTYPE	  area,ident,type

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     type       ᪠ ⨯  (16Ĩ ࠧ來 ᫮).

     ᫨ ᥫ ᮮ⢥ ⠭ ࠧ  ᪨,   
ᥫ ⮡ࠦ ⨢ 梥⮬,  ,  ᫨  饭,   
䮭.

;
     ⠭ ࠧ     㧮஬  (   
9):

GPTRN	  area,ident,address

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     address     ࠧ.

     1Į ᫮ ࠧ ᮤন       ᥫ,  2Į  
  ப,  ᫥ ᮡ⢥ ࠧ. ப ࠧ 
 ᮤঠ 楫 ᫮ ᫮.        ᥫ 
 ᮢ⨬  ᠬ ""  뫮.
      ࠧ ࠧ   ॢ 8.


          8.3. ᪨ ਬ⨢

;
      ⥪  (  10):

GMOVE	  area,ident,x,y

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     x,y        न 窨.

;
     ⠭ ᥫ  㪠 窥       ⥪饥 
(  11):

GDOT	  area,ident,x,y

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     x,y        न 窨.

     ᫨  窠       뢮,    ᥫ   
⠭ ( ⮬ 砥   GDOT  ⥭  
GMOVE).

;
      祭 ᥫ   窥 (  12):

GGET	  area,ident,x,y

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     x,y        न 窨.

     祭 ᥫ  頥    3ĥ  ᫮  ࠢ饣 
.	᫨ 窠   ,  頥 1.

;
     ஢  १  אַ    ⥪饩  窨       
 ᫥ ⥪饩 (  13):

GLINE	  area,ident,x,y

     area        ࠢ饣 ;
     ident      䨪 ;
     x,y        न 筮 窨 १.

;
     ஢   ⥪饩 窨   ⨢ ᮢ ( 
 14)   ᮢ (  15) ५:

GARCC	  area,ident,xc,yc,xf,yf   (⨢ ᮢ)

GARCW	  area,ident,xc,yc,xf,yf   ( ᮢ)

     area        ࠢ饣 ;
     ident      䨪 ;
     xc,yc      न 業 㣨;
     xf,yf      न 筮 窨 㣨.

     ᫨ 砫쭠  筠 窨 㣨 ᮢ,    ந 
 㦭. 筠 窠 㣨 ⠭ ⥪饩.   
㣨      ᥫ.

;
        ந쭮 ࠭楩 ࠭  ⠭ 
㧮஬ (  16):

GFILL	  area,ident,x,y

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     x,y        砫쭠 窠 (୮) .

     祭 ᥫ  ୥ ।   ᥫ   
७ 䨣.  ᥫ  ⫨ 祭  
஬. ਭ,    ७  䨣  4吝,   
, ᮮ⢥⢥, 8Ĩ吝.
         ⥪ .

          8.4.   뫪

       ⢫ 뫪    筮   
ᥫ     ⠪,    ⫨         
뫮   প.
       뫪   ⥪  .   
࣠ 祭   뢮.

;
     뫪    짮⥫    (   
17):

GRVR	  area,ident,x,y,address

     x,y        न 砫쭮 ( 孥) 窨 뢮
                   ;
     address    㠫  .

     1Į ᫮  ᮤন  ப   ᥫ, 2Į 
    ப,  ᫥ ᮡ⢥ .
      ப      㫥     㫥 
᫮ ப   楫 ᫮  ᫮.     ࠧ,  ᫨ 
  ப    ⭠  楫    ᫮  "譨"   ᥫ 
᫥ ᫮  ப ய.
      ࠧ    ॢ 8.

;
     뫪      짮⥫ (   
18):

GVRR	  area,ident,x1,y1,x2,y2,address

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     x1,y1      न 1Į 窨	
                 אַ㣮쭨, ࠭稢饣 ;
     x2,y2      न 2Į 窨;
     address    㠫  .

      1Į ᫮    ப  ᥫ,  2Į 
   ப,   ᫥  ப  ,     
  楫 ᫮ ᫮. "譨"  ᥫ    ᫥ 
᫮  ப ய.
      뫠    ॢ 8.

;
     뫪   (  19):

GVRVR	  area,ident,x1,y1,x2,y2,x,y

     area        ࠢ饣 ;
     ident      䨪 ࠦ
     x1,y1      न 1Į 窨 
                 뫠 ;
     x2,y2      न 2Į 窨;
     x,y        砫쭠 窠 १.

     न      ।      ࠧ,    
᫥⥫쭮,  ன  , ĭࠢ  뫪. 
ࠢ쭮  ࠢ 뫪 ࠩ ⢥,  ᫨ 
室   १ 뫪 ᥪ.

     ਬ:


	  (X,Y)
	    Ŀ
	    		 
	    		 (X1,Y1)
	     १  Ŀ  \ ࠢ 뫪
	     뫪  	    
	    		  室 
	    		       
	    	    
		       	    
		       	    
		       
				 (X2,Y2)


				     (X2,Y2)
			Ŀ
	 		
	 		   室	    / ࠢ
	    १	   	      뫪
	    뫪	 		
	 		 
	 (X1,Y1)
       (X,Y)


